﻿Public Class NeuVorhandenFRM

#Region " D e k l a r a t i o n "
    Public Rückgabe As NeuVorhanden
#End Region

#Region " ButtonNeu_Click-Ereignis "
    Private Sub ButtonNeu_Click(sender As Object, e As EventArgs) Handles ButtonNeu.Click
        Rückgabe = NeuVorhanden.Neu
        Me.DialogResult = DialogResult.OK
    End Sub
#End Region

#Region " ButtonVorhanden_Click-Ereignis "
    Private Sub ButtonVorhanden_Click(sender As Object, e As EventArgs) Handles ButtonVorhanden.Click
        Rückgabe = NeuVorhanden.Vorhanden
        Me.DialogResult = DialogResult.OK
    End Sub
#End Region

End Class